home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 23 / AACD 23.iso / AACD / Programming / ExtraLib / Demos / ShowMsgDemo.BAS < prev    next >
BASIC Source File  |  2001-04-30  |  5KB  |  112 lines
  1. ' ___________________________________________________________________________
  2. ' |*************************************************************************|
  3. ' |*|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯|*|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯|*|
  4. ' |*| Set TAB to 4 for best readable file layout.  |*|  Maxon Basic 3.00  |*|
  5. ' |*|______________________________________________|*|____________________|*|
  6. ' |*************************************************************************|
  7. ' |*|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯|*|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯|*|
  8. ' |*|               |*|  $Id: ShowMsgDemo.BAS (28.04.01)                  |*|
  9. ' |*| ###### ###### |*|  RhoSigma Source based on NDK 3.1 Includes 40.15  |*|
  10. ' |*| ##  ## ##   # |*| _________________________________________________ |*|
  11. ' |*| ##  ##  ##    |*|                                                   |*|
  12. ' |*| ######   ##   |*|  Demo to show use of extra/ShowMsg() and Macros   |*|
  13. ' |*| ##      ##    |*|                                                   |*|
  14. ' |*| ##     ##   # |*| ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ |*|
  15. ' |*| ##     ###### |*|  Copyright © 1998-2001 RhoSigma, Roland Heyder    |*|
  16. ' |*|               |*|  All Rights Reserved.                             |*|
  17. ' |*|_______________|*|___________________________________________________|*|
  18. ' |*************************************************************************|
  19. ' ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  20.  
  21. '$TO        ShowMsgDemoBAS
  22. '$ICONS
  23. '$NOLIBRARY
  24. '$NOWINDOW
  25.  
  26. '$INCLUDE    settings.bc
  27. '$INCLUDE    extra.bh
  28.  
  29. DATA "$VER: ShowMsgDemoBAS 2.14 (28.04.01)"
  30.  
  31. LIBRARY OPEN "extra"
  32.  
  33. SMTEXT 100,6,"linke Seite",FALSE%        ' END-Flag FALSE (kein Ende)
  34. SMTEXT 444,6,"rechte Seite",FALSE%         ' absolute X-Koordinaten
  35. SMTEXT SMTPOS_C%,16,"zentriert",FALSE%    ' END-Flag FALSE, zentriert
  36. SMTEXT SMTPOS_C%,26,"Ende",TRUE%        ' END-Flag TRUE (Ende), zentriert
  37. ok&=ShowMsg&(SADD(smAlert$),0&,40&,0&)
  38.  
  39. SMTEXT 112,6,"Oder",FALSE%
  40. SMTEXT 212,6,"alles",FALSE%
  41. SMTEXT 312,6,"in",FALSE%
  42. SMTEXT 412,6,"einer",FALSE%
  43. SMTEXT 512,6,"Zeile !!",TRUE%
  44. ok&=ShowMsg&(SADD(smAlert$),0&,20&,0&)
  45.  
  46. SMTEXT SMTPOS_C%,6,"Oder",FALSE%
  47. SMTEXT SMTPOS_C%,16,"alles",FALSE%
  48. SMTEXT SMTPOS_C%,26,"zentriert",FALSE%
  49. SMTEXT SMTPOS_C%,36,"!!",TRUE%
  50. ok&=ShowMsg&(SADD(smAlert$),0&,50&,0&)
  51.  
  52. SMTEXT SMTPOS_L%,6,"linksbündig",FALSE%
  53. SMTEXT SMTPOS_C%,6,"zentriert",FALSE%
  54. SMTEXT SMTPOS_R%,6,"rechtsbündig",FALSE%
  55. SMTEXT 200,16,"absolute X-Pos 200 v.l.",TRUE%
  56. ok&=ShowMsg&(SADD(smAlert$),0&,30&,0&)
  57.  
  58. OPEN "I",#1,"S:PCD"                    ' Diese Anwendung sollte man jedoch
  59. y%=6                                ' mit Vorsicht genießen, da einiges
  60. WHILE NOT EOF(1)                    ' schiefgehen kann, wenn die Datei
  61.     LINE INPUT #1,l$                ' größer als eine Bildschirmseite ist
  62.     SMTEXT SMTPOS_L%,y%,l$,EOF(1)    ' oder Zeilen enthält, die breiter
  63.     y%=y%+10                        ' als 80 Zeichen sind !!
  64. WEND
  65. CLOSE #1
  66. y%=y%+14
  67. ok&=ShowMsg&(SADD(smAlert$),0&,y%,0&)
  68.  
  69. SMCOLOR 3,12,0,10,FALSE%    ' neue Farbtabelle definieren
  70. SMCOLOR 4,9,0,13,FALSE%
  71. SMCOLOR 5,5,0,14,FALSE%
  72. SMCOLOR 6,0,0,15,FALSE%
  73. SMCOLOR 7,0,10,14,FALSE%
  74. SMCOLOR 8,0,14,9,FALSE%
  75. SMCOLOR 9,0,14,0,FALSE%
  76. SMCOLOR 10,5,14,0,FALSE%
  77. SMCOLOR 11,12,15,0,FALSE%
  78. SMCOLOR 12,15,13,0,FALSE%
  79. SMCOLOR 13,15,9,0,FALSE%
  80. SMCOLOR 14,15,4,0,FALSE%
  81. SMCOLOR 15,15,0,0,TRUE%
  82. SMTEXT SMTPOS_C%,5,"Das sieht natürlich alles noch nicht besonders überzeugend aus,",FALSE%
  83. txt1$="aber dies hier ist dann doch ein ganz schöner Unterschied zu der"
  84. txt2$="völlig geschmacklosen Intuition-Routine »DisplayAlert()«, oder ?!"
  85. farb%=4
  86. delta%=-1
  87. FOR x%=1 TO LEN(txt1$)
  88.     SMTEXTP x%*8+56,16,farb%,1,1,STS_Plain%,STM_Outline%,MID$(txt1$,x%,1),FALSE%
  89.     farb%=farb%+delta%
  90.     IF farb%=15 OR farb%=3 THEN delta%=-delta%
  91. NEXT x%
  92. farb%=4
  93. delta%=-1
  94. FOR x%=1 TO LEN(txt2$)
  95.     SMTEXTP x%*8+52,27,15,farb%,farb%,STS_Plain%,STM_Outline%,MID$(txt2$,x%,1),FALSE%
  96.     farb%=farb%+delta%
  97.     IF farb%=15 OR farb%=3 THEN delta%=-delta%
  98. NEXT x%
  99. SMTEXTP SMTPOS_C%,38,10,14,14,STS_Italic% OR STS_Underline%,STM_Shadow%,"So, dies sollte kursiv & unterstrichen sein, sowie einen Schatten haben.",FALSE%
  100. SMTEXTP SMTPOS_C%,49,5,1,1,STS_Plain%,STM_Outline%,"<--- bitte wählen Sie --->",FALSE%
  101. SMTEXTP SMTPOS_L%,49,12,1,1,STS_Bold%,STM_Normal%,"!! SEHR GUT !!",FALSE%
  102. SMTEXT SMTPOS_R%,49,"!! NICHT GUT !!",TRUE%
  103. ok&=ShowMsg&(SADD(smAlert$),0&,63&,SADD(smFarb$))
  104.  
  105. SMTEXTP    SMTPOS_C%,6,9,11,11,STS_Plain%,STM_Outline%,"extra.library 2.118 - Copyright © 1998-2001 - Roland Heyder",FALSE%
  106. SMTEXTP    SMTPOS_C%,18,9,15,15,STS_Plain%,STM_Outline%,"For registration send DM 15,- or the changed amount in other currencies to:",FALSE%
  107. SMTEXTP    SMTPOS_C%,30,9,13,13,STS_Plain%,STM_Outline%,"Roland Heyder - Oberstadt 44 - 38877 Benneckenstein - Germany",TRUE%
  108. ok&=ShowMsg&(SADD(smAlert$),0&,46&,0&)
  109.  
  110. LIBRARY CLOSE
  111. END
  112.